../../mct/shr/seq_comm_mct.F90